B API

B 注册表

001 自动装入注册设置 98-7-04

假设有应用 myapp.exe 及一个注册文件 myapp.reg，下面的代码将自动装入注册设置。
Dim strFile As String
strFile = App.Path & "\myapp.reg"
If Len(Dir$(strFile)) > 1 Then
    lngRet = Shell("Regedit.exe /s " & strFile, vbNormalFocus)
End If

知/的/更/多 做/的/更/好